unit u_rel_involucro;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, u_rel_padrao, RLPDFFilter, RLHTMLFilter, RLRichFilter,
  RLFilters, RLXLSFilter, jpeg, RLReport, FMTBcd, DB, DBClient, Provider,
  SqlExpr;

type
  TFRM_RelInvolucro = class(TFRM_RelPadrao)
    rlForma: TRLBand;
    rlNomeFormaDESCRICAO: TRLDBText;
    rlFormaInfo: TRLBand;
    RLDBText1: TRLDBText;
    RLDBText2: TRLDBText;
    RLDBText3: TRLDBText;
    RLDBText4: TRLDBText;
    RLDBText5: TRLDBText;
    RLDBText12: TRLDBText;
    sqlRelatorio: TSQLQuery;
    dspRelatorio: TDataSetProvider;
    cdsRelatorio: TClientDataSet;
    cdsRelatorioCOD_INVOLUCRO: TIntegerField;
    cdsRelatorioLIG_COD_INVOLUVRO_TIPO: TIntegerField;
    cdsRelatorioLIG_COD_PRODUTO: TIntegerField;
    cdsRelatorioLIG_COD_CLASS_TERAPEUTICA: TIntegerField;
    cdsRelatorioSITUACAO: TStringField;
    cdsRelatorioSITUACAO_DESC: TStringField;
    cdsRelatorioTAMANHO: TStringField;
    cdsRelatorioVOLUME_INT_MIN: TFMTBCDField;
    cdsRelatorioVOLUME_INT_MAX: TFMTBCDField;
    cdsRelatorioVOLUME_EXTERNO: TFMTBCDField;
    cdsRelatorioPESO_VAZIO: TFMTBCDField;
    cdsRelatorioPRIORIDADE: TIntegerField;
    cdsRelatorioDATA_CAD: TDateField;
    cdsRelatorioDATA_ALTERACAO: TDateField;
    cdsRelatorioINVOLUCRO_TIPO: TStringField;
    cdsRelatorioCLASS_TERAPEUTICA: TStringField;
    cdsRelatorioCOR_01: TStringField;
    cdsRelatorioCOR_02: TStringField;
    dsRelatorio: TDataSource;
    RLDBText13: TRLDBText;
    RLDBText14: TRLDBText;
    RLDBText15: TRLDBText;
    RLDBText16: TRLDBText;
    RLDBText6: TRLDBText;
    RLDBText7: TRLDBText;
    RLDBText8: TRLDBText;
    procedure lblEmpresaLicenciadaBeforePrint(Sender: TObject;
      var Text: String; var PrintIt: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRM_RelInvolucro: TFRM_RelInvolucro;

implementation

uses u_dm_geral;

{$R *.dfm}

procedure TFRM_RelInvolucro.lblEmpresaLicenciadaBeforePrint(
  Sender: TObject; var Text: String; var PrintIt: Boolean);
begin
  inherited;
  Text := dmGeral.cdsConsultaEmpUserDESCRICAO_MULTIEMPRESA.AsString;
end;

end.
